10 PRINT"[147]"CHR$(142)
20 T=1:T$="MONTAG":K=1000:TE=15:I=-1
30 POKE53280,12:POKE53281,12
40 PRINTTAB(5)"**** I M B I S S - B U D E ****"
50 PRINT"[151]FUER DEN COMMODORE 64"
60 PRINT"(C) BEI [158]ROSSI[151]
70 [153]"? WOLLEN SIE DIE SPIELANLEITUNG LESEN ?"
80 I[178]I[170]5:[139]I[177]255[167]I[178]0
90 [151]646,I:[153]""[163]5)"****"[163]32)"****":[161]E$:[139]E$[179][177]""[167]110
100 [137]80
110 [139]E$[178]"J"[167][141]1960:[137]130
120 [139]E$[179][177]"N"[167]100
130 [133]"LOADPOKEWIEVIEL WOCHEN WOLLEN SIE ARBEITEN ";ZW%:ZW[178]ZW%
140 [139]ZW[179]1[176]ZW[177]30[167]130
150 [143] *** BILDSCHIRMMASKE ***
160 [153]"LOADTAG:           TEMPERATUR:"
170 [153]"KASSENINHALT:"
180 [153]"WARENVORAT:            VERKAUFSPREISE:"
190 [153]"TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN"
200 [153]"SCHOKOLADENEIS:     STUECK   *       PF"
210 [153]"ZITRONENEIS   :     STUECK   *       PF"
220 [153]"WALDMEISTEREIS:     STUECK   *       PF"
230 [153]"COLA          :     FLASCHEN *       PF"
240 [153]"ZIGARETTEN    :     PACK.    *       PF"
250 [153]"BRATWUERSTE   :     STUECK   *       PF"
260 [153]"POMMES FRITES :     TELLER   *       PF"
270 [153]"TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN"
280 [141]520
290 [139]T[178]6[176]T[178]7[167]350
300 [141]510:[153]"MOECHTEN SIE ETWAS EINKAUFEN ?";
310 [151]198,0:[146]198,1:[161]E$
320 [139]E$[178]"J"[167][141]710:[137]350
330 [139]E$[179][177]"N"[167]310
340 [141]520
350 [141]510:[153]"MOECHTEN SIE IHRE PREISE AENDERN ?";
360 [151]198,0:[146]198,1:[161]E$
370 [139]E$[178]"J"[167][141]1050:[137]390
380 [139]E$[179][177]"N"[167]360
390 [141]1170
400 T[178]T[170]1:[139]T[178]8[167]T[178]1:W[178]W[170]1:[139]W[178]ZW[167]1860
410 [139]T[178]1[167]T$[178]"MONTAG"
420 [139]T[178]2[167]T$[178]"DIENSTAG"
430 [139]T[178]3[167]T$[178]"MITTWOCH"
440 [139]T[178]4[167]T$[178]"DONNERSTAG"
450 [139]T[178]5[167]T$[178]"FREITAG"
460 [139]T[178]6[167]T$[178]"SAMSTAG"
470 [139]T[178]7[167]T$[178]"SONNTAG"
480 Z1[178][171]9:Z2[178]40:[141]500:TE[178]Z
490 [137]280
500 Z[178]([181]([187](TI)[172](Z2[171]Z1))[170]Z1):[142]
510 [153]"":[129]I[178]1[164]17:[153]:[130]:[142]
515 [153]"":[129]I[178]1[164]17:[153]:[130]:[153]"! PREISE BITTE IN SYSPFENNIGWAITPOKE ANGEBEN !
518 RETURN
520 PRINT""TAB(4)"          ":PRINT"[145]"TAB(4)T$
530 PRINT"[145]"TAB(28)"    ":PRINT"[145]"TAB(26)TE"C"
540 PRINT""TAB(14)"                   ":PRINT"[145]"TAB(14)K/100"DM"
545 PRINT""
550 PRINTTAB(15)"    [157][157][157][157]"W1
560 PRINT"[145]"TAB(31)"      [157][157][157][157][157][157]"V1
570 PRINTTAB(15)"    [157][157][157][157]"W2
580 PRINT"[145]"TAB(31)"      [157][157][157][157][157][157]"V2
590 PRINTTAB(15)"    [157][157][157][157]"W3
600 PRINT"[145]"TAB(31)"      [157][157][157][157][157][157]"V3
610 PRINTTAB(15)"    [157][157][157][157]"W4
620 PRINT"[145]"TAB(31)"      [157][157][157][157][157][157]"V4
630 PRINTTAB(15)"    [157][157][157][157]"W5
640 PRINT"[145]"TAB(31)"      [157][157][157][157][157][157]"V5
650 PRINTTAB(15)"    [157][157][157][157]"W6
660 PRINT"[145]"TAB(31)"      [157][157][157][157][157][157]"V6
670 PRINTTAB(15)"    [157][157][157][157]"W7
680 PRINT"[145]"TAB(31)"      [157][157][157][157][157][157]"V7
690 GOSUB510:FORI=1TO50:PRINT"    ";:NEXT
700 GOSUB510:PRINT"[151]":RETURN
710 REM *** WAREN EINKAUFEN ***
720 GOSUB520
730 Z1=10:Z2=40
740 IFTE>5THENZ1=20:Z2=45
750 IFTE>10THENZ1=30:Z2=50
760 IFTE>15THENZ1=40:Z2=60
770 IFTE>20THENZ1=40:Z2=70
780 IFTE>30THENZ1=50:Z2=90
790 IFTE>35THENZ1=80:Z2=100
800 IFT=5THENZ1=Z1+15:Z2=Z2+15
810 GOSUB500:H1=Z:GOSUB500:H2=Z:GOSUB500:H3=Z:GOSUB500:H4=Z+10
820 GOSUB500:H6=150-Z:GOSUB500:H7=170-Z:Z1=4:Z2=9:GOSUB500:H5=Z*50
830 GOSUB510:PRINT"WIEVIEL SCHOKOLADENEIS ZU"H1"PF ";:INPUTE
840 IFE*H1>KTHEN830
850 W1=W1+E:K=K-(H1*E):GOSUB520
860 GOSUB510:PRINT"WIEVIEL ZITRONENEIS ZU"H2"PF ";:INPUTE
870 IFE*H2>KTHEN860
880 W2=W2+E:K=K-(H2*E):GOSUB520
890 GOSUB510:PRINT"WIEVIEL WALDMEISTEREIS ZU"H3"PF ";:INPUTE
900 IFE*H3>KTHEN890
910 W3=W3+E:K=K-(H3*E):GOSUB520
920 GOSUB510:PRINT"WIEVIEL FLASCHEN COLA ZU"H4"PF ";:INPUTE
930 IFE*H4>KTHEN920
940 W4=W4+E:K=K-(H4*E):GOSUB520
950 GOSUB510:PRINT"WIEVIEL PACK.ZIGARETTEN ZU"H5"PF ";:INPUTE
960 IFE*H5>KTHEN950
970 W5=W5+E:K=K-(H5*E):GOSUB520
980 GOSUB510:PRINT"WIEVIEL BRATWUERSTE ZU"H6"PF ";:INPUTE
990 IFE*H6>KTHEN980
1000 W6=W6+E:K=K-(H6*E):GOSUB520
1010 GOSUB510:PRINT"WIEVIEL TELLER POMMES ZU"H7"PF ";:INPUTE
1020 IFE*H7>KTHEN1010
1030 W7=W7+E:K=K-(H7*E):GOSUB520
1040 RETURN
1050 REM *** PREISE EINGEBEN ***
1060 GOSUB520:GOSUB515
1080 INPUT"SCHOKOLADENEIS ";V1:GOSUB520
1090 GOSUB515:INPUT"ZITRONENEIS ";V2:GOSUB520
1100 GOSUB515:INPUT"WALDMEISTEREIS ";V3:GOSUB520
1110 GOSUB515:INPUT"COLA ";V4:GOSUB520
1120 GOSUB515:INPUT"ZIGARETTEN ";V5:GOSUB520
1130 GOSUB515:INPUT"BRATWUERSTE ";V6:GOSUB520
1140 GOSUB515:INPUT"POMMES FRITES ";V7:GOSUB520
1150 RETURN
1160 REM *** KUNDEN SIMULIEREN ***
1170 BK=30:EK=10:ZK=10
1180 IFT=6THENBK=40:EK=15:ZK=13
1190 IFT=7THENBK=40:EK=20:ZK=18
1200 VE=V1:IFVE>V2THENVE=V2
1210 IFVE>V3THENVE=V3
1220 EK=EK-INT(VE/10)
1230 VB=V6:IFVB>V7THENVB=V7
1240 BK=BK-INT(VB/20)
1250 ZK=ZK-INT(V5/100)
1260 EK=EK+INT(TE/2):BK=BK-INT(TE/2)
1270 GOSUB510:PRINT"! IHR IMBISS OEFFNET DIE ROLLAEDEN !"
1280 PRINT"TEMP.="TE"C"
1290 AK=EK+BK+ZK
1300 IFAK<2THENFORI=1TO1000:NEXT:RETURN
1310 FORU=1TOAK:GOSUB1330:NEXT
1320 GOSUB545:RETURN
1330 S=1:Z1=1:Z2=10:GOSUB500:E=Z:IFZ=2THENS=2
1340 Z1=1:Z2=9:GOSUB500
1350 GOSUB520:GOSUB510
1360 ONZGOTO1370,1460,1540,1620,1670,1720,1790,1370
1370 IFEK=0THEN1330
1380 IFE=3THEN1410
1390 IFV1-V2>20THEN1460
1400 IFV1-V3>20THEN1540
1410 PRINT"KUNDE: "S" SCHOKOLADENEIS BITTE !"
1420 IFW1=0THENPRINT"AUSVERKAUFT":EK=EK-1:GOTO1450
1430 IFS>W1THENPRINT"DAS IST DAS LETZTE ":K=K+(W1*V1):W1=0:EK=EK-1:GOTO1450
1440 W1=W1-S:K=K+(S*V1):EK=EK-1
1450 FORJ=1TO200:NEXT:RETURN
1460 IFEK=0THEN1330
1470 IFE=3THEN1500
1480 IFV2-V1>20THEN1370
1490 IFV2-V3>20THEN1540
1500 PRINT"KUNDE:"S"ZITRONENEIS BITTE "
1510 IFW2=0THENPRINT"AUSVERKAUFT":EK=EK-1:GOTO1450
1520 IFS>W2THENPRINT"DAS IST DAS LETZTE ":K=K+(W2*V2):W2=0:EK=EK-1:GOTO1450
1530 W2=W2-S:K=K+(S*V2):EK=EK-1:GOTO1450
1540 IFEK=0THEN1330
1550 IFE=3THEN1580
1560 IFV3-V1>20THEN1370
1570 IFV3-V2>20THEN1460
1580 PRINT"KUNDE:"S"WALDMEISTEREIS BITTE !"
1590 IFW3=0THENPRINT"AUSVERKAUFT":EK=EK-1:GOTO1450
1600 IFS>W3THENPRINT"DAS IST DAS LETZTE ":K=K+(W3*V3):W3=0:EK=EK-1:GOTO1450
1610 W3=W3-S:K=K+(S*V3):EK=EK-1:GOTO1450
1620 IFEK=0THEN1330
1630 PRINT"KUNDE:"S"COLA BITTE !"
1640 IFW4=0THENPRINT"AUSVERKAUFT":EK=EK-1:GOTO1450
1650 IFS>W4THENPRINT"DAS IST DIE LETZTE ":K=K+(W4*V4):W4=0:EK=EK-1:GOTO1450
1660 W4=W4-S:K=K+(S*V4):EK=EK-1:GOTO1450
1670 IFZK=0THEN1330
1680 PRINT"KUNDE:"S"SCHACHTEL ZIGARETTEN !"
1690 IFW5=0THENPRINT"AUSVERKAUFT":ZK=ZK-1:GOTO1450
1700 IFS>W5THENPRINT"DAS IST DIE LETZTE ":K=K+(W5*V5):W5=0:ZK=ZK-1:GOTO1450
1710 W5=W5-S:K=K+(S*V5):ZK=ZK-1:GOTO1450
1720 IFBK=0THEN1330
1730 IFE=3THEN1750
1740 IFV6-V7>30THEN1790
1750 PRINT"KUNDE:"S"BRATWUERSTCHEN !"
1760 IFW6=0THENPRINT"LEIDER AUSVERKAUFT":BK=BK-1:GOTO1450
1770 IFS>W6THENPRINT"DAS IST DAS LETZTE":K=K+(W6*V6):W6=0:BK=BK-1:GOTO1450
1780 W6=W6-S:K=K+(S*V6):BK=BK-1:GOTO1450
1790 IFBK=0THEN1330
1800 IFE=3THEN1820
1810 IFV7-V6>30THEN1820
1820 PRINT"KUNDE:"S"TELLER POMMES BITTE !"
1830 IFW7=0THENPRINT"LEIDER AUSVERKAUFT":BK=BK-1:GOTO1450
1840 IFS>W7THENPRINT"DAS IST DAS LETZTE":K=K+(W7*V7):W7=0:BK=BK-1:GOTO1450
1850 W7=W7-S:K=K+(S*V7):BK=BK-1:GOTO1450
1860 PRINT"[147]STATISTIK:
1870 [153]"SIE HABEN ES IN"ZW"WOCHEN GESCHAFT DEN
1880 PRINT"KASSENINHALT VON 10 AUF"K/100"DM ZU":PRINT"ERHOEHEN.
1890 WL[178](K[173]ZW)[173]100
1900 [139]ZW[177]1[167][153]"DAS IST EIN WOCHENLOHN VON"WL"DM
1910 IFWL>300THENPRINT"SIE SIND DIE PERFEKTE 'TANTE EMMA' !":GOTO1950
1920 IFWL>200THENPRINT"HERR ROSENTAL WUERDE SAGEN 'SPITZE'":GOTO1950
1930 IFWL>50THENPRINT"MAN KANN'S NOCH SCHLECHTER MACHEN":GOTO1950
1940 IFWL<51THENPRINT"ICH WILL JA NICHTS SAGEN ABER...
1950 [151]198,0:[146]198,1:[153]"LOAD":[128]
1960 [143] *** ANLEITUNG ***"
1970 PRINT"[147][151]SPIELANLEITUNG:
1980 [153]"IN DIESEM SPIEL WERDEN SIE BESITZER
1990 PRINT"EINER IMBISS-BUDE. IHRE AUFGABE BESTEHT
2000 [153]"DARIN,IN MOEGLICHST KURZER ZEIT,":[153]"MOEGLICHST VIEL GEWINN ZU ERREICHEN."
2010 [153]"DIES IST NUR DURCH GESCHICKTE":[153]"KALKULATION MOEGLICH.
2020 PRINT"FOLGENDE PARAMETER SOLLTEN SIE BEI DER ";
2030 PRINT" FESTLEGUNG IHRER PREISE BEDENKEN:
2040 [153] "   TEMPERATUR"
2050 [153] "   WOCHENTAG BZW.WOCHENENDE
2060 PRINT "   HAENDLER-ANGEBOTE"
2070 PRINT:PRINT "DAS EINKAUFEN VON WARE IST NUR AN WERK-":PRINT"TAGEN MOEGLICH!
2080 [151]198,0:[146]198,1:[151]198,0:[142]
2090 [137]2080